home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / libs / tool7v13 / demopar.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-09-25  |  1.1 KB  |  38 lines
  1. Program DemoParser;
  2.  
  3. { Purpose....... Demonstrates the use of the following units: parser
  4.   Comments...... None
  5.   Author........ Thayne Breetzke
  6.   Date.......... 16 July 1994                                                 }
  7.  
  8. Uses
  9.   Parser;
  10.  
  11. Var
  12.   Count : Byte;
  13.  
  14. Begin
  15.   Writeln;
  16.   If ParamCount = 0 then
  17.     Begin
  18.       Writeln('Execute this program giving it the following parameters:');
  19.       Writeln;
  20.       Writeln('/W /M c:\command.com /f /b9600 "Hello John!" /G-')
  21.     end
  22.   else
  23.     Begin
  24.       Writeln('Params returns ',NumParams);
  25.       Writeln('Param(1) returns ',Param(1));
  26.       Writeln('Param(2) returns ',Param(2));
  27.       Writeln('Switch L there? ',SwitchPos('L',TRUE) <> 0);
  28.       Writeln('SwitchData(''F'',TRUE) returns ',SwitchData('f',TRUE));
  29.       Writeln('SwitchData(''B'',TRUE) returns ',SwitchData('B',TRUE));
  30.       Writeln('SwitchData(''G'',TRUE) returns ',SwitchData('G',TRUE));
  31.       Writeln;
  32.       Writeln('Parameters:');
  33.       Writeln;
  34.       For Count := 1 to NumParams do
  35.         Writeln(Count:4,'  ',Param(Count))
  36.     end;
  37.   Writeln
  38. end.